#!/usr/bin/perl
#
# usage:
#   wget -q -O - http://localhost/cgi-bin/limura/Game/nodeStatus.cgi

require 'config.ph';

@users = &GetUserNames();

foreach $user (@users){
	$url = &GetMasterURL($user);
	next unless($url =~ m/^http/);
	$result .= join('', `$WGET -q -O - "$url/$user.txt"`);
}
$result =~ s/}\s*{/,/g;
print $result;
